home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCNOMY / ASTROSET.LZH / ADDMAG.BAS next >
BASIC Source File  |  1985-12-20  |  384b  |  15 lines
  1. 10 REM  ADDING MAGNITUDES
  2. 15 REM
  3. 20 B=100^.2: N=2: C=LOG(10)
  4. 25 INPUT "1ST STAR MAG";M1
  5. 30 INPUT "2ND STAR MAG";M2
  6. 35 M = B^-M1 + B^-M2
  7. 40 M = -2.5*LOG(M)/C
  8. 45 PRINT "TOTAL MAG:   ";M
  9. 50 M1=M: N=N+1: PRINT
  10. 55 INPUT "ANOTHER STAR- IF YES ENTER MAG- ELSE ENTER N";M$
  11. 60 IF M$="N" THEN 75
  12. 70 M2=VAL(M$): GOTO 35
  13. 75 PRINT "STAR COUNT:  ";N-1
  14. 80 END
  15.